// Pa=antset1(Na,L,H); Ра - вектора координат идеальной кольцевой антенной системы, 
// L - расстояние относительно геометрического центра, 
// Na-число периферийны антенн. Антенные элементы с нечётными номерами
// расположены на расстоянии L/2 относительно центральной антенны.
// вектор вертикальных отклонений фазовых центров относительно центральной антенны. 
// function Pa=antset(Na,L,H);


// Na=6; L=0.0935; H=0;

function Pa=antset1(Na,L,H)
if length(H)==1,
   H=H*ones(Na,1);
end;

Pa=zeros(Na,3);
for i=1:Na,
      Pa(i,:)=[L*cos(2*%pi*(i-1)/Na),L*sin(2*%pi*(i-1)/Na),H(i)];
end;

 

// a=1;

      
//    if rem(i,2)==0,
//       Pa(i,:)=[L*cos(2*pi*(i-1)/Na),L*sin(2*pi*(i-1)/Na),H(i)];//+5
//    else
//       Pa(i,:)=[0.5*L*cos(2*pi*(i-1)/Na),0.5*L*sin(2*pi*(i-1)/Na),H(i)];//+5
//    end;
endfunction
